INCLUDE "Z80.POD"

PROGRAM MAIN

1:
   REGE = 10

2:
   WRITE @4040 = REGE
   WRITE @405F = REGE
   WRITE @43A0 = REGE
   WRITE @43BF = REGE

INC REGE

IF REGE = 17 GOTO 1
